home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 94
/
64er_Magazin_Sonderheft_94_19xx_Markt__Technik_de_Side_B.d64
/
3. col.+spr.ed.
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
572b
|
11 lines
0 v=53248:print"sprite ed. oder zeichenfarben setzen:":input"(s/z)";a$:ifa$="z"then8
1 pokev+28,0:poke2040,11:pokev,255:input"multicol (j/n)";a$:ifa$="j"thengosub7
2 print"[147]123456781234567812345678";:pokev+1,200
3 fort=1to21:printspc(23);t:nextt:inputa$:xx=25:pokev+21,1
4 pokev+39,4:print"";:fort=0to20:fortt=0to2:y=0:forn=7to0step-1
5 x=peek(1024+t*40+tt*8+(7-n)):ifx<>32theny=y+2^n
6 nextn:print"[145]";spc(xx+tt*4);y:poke704+e,y:poke4096+e,y:e=e+1:nexttt:print:nextt:end
7 forr=1to3:print"farbe";r;" :(0-15)";:inputa:pokev+36,a:nextr:pokev+28,1:return
8 poke198,0:input"[147]zeichen:";a$:input"farbe:(0-15)";f:poke2816+peek(1034),f:poke55306,f
9 print" <taste>":poke198,0:wait198,1:ifpeek(1034)<>32then8